home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 041-050 / amok50 / brushtooberon / brushtooberondemo.mod < prev    next >
Text File  |  1993-11-04  |  1KB  |  47 lines
  1. (*-------------------------------------------------------------------------
  2. :Program.       BrushToOberonDemo.mod
  3. :Contents.      Demo for »BrushToOberon«
  4. :Author.        Christian Stiens
  5. :Address.       Heustiege 2, W-4710 Lüdinghausen
  6. :Copyright.     PD
  7. :Language.      Oberon
  8. :Translator.    Amiga Oberon V1.17.1 A+L
  9. :History.       V1.0, 11-Mar-91
  10. -------------------------------------------------------------------------*)
  11.  
  12. MODULE BrushToOberonDemo;
  13.  
  14.   IMPORT
  15.     di : Display,
  16.     g  : Graphics,
  17.     I  : Intuition,
  18.     hw : Hardware,
  19.     s  : SYSTEM,
  20.     w  : Windmuehle;
  21.  
  22.   VAR
  23.     scr : di.ScreenPtr;
  24.     rp  : g.RastPortPtr;
  25.     vp  : g.ViewPortPtr;
  26.     im  : I.Image;
  27.     x,y : INTEGER;
  28.  
  29. BEGIN
  30.   NEW(scr);
  31.   IF di.OpenScreen(scr,"BrushToOberonDemo",0,0,640,200,2,TRUE,FALSE) THEN
  32.     rp := scr.rp;
  33.     vp := s.ADR(scr.screen.viewPort);
  34.     g.LoadRGB4(vp,w.WindmuehleCols,4);
  35.     im := I.Image(0,0,66,39,2,s.ADR(w.WindmuehleData),
  36.                   SHORTSET{0,1},SHORTSET{},NIL);
  37.     y := 20; WHILE y < 150 DO
  38.       x := 20; WHILE x < 570 DO
  39.         I.DrawImage(rp,s.ADR(im),x,y);
  40.         INC(x,90);
  41.       END;
  42.       INC(y,55)
  43.     END;
  44.   END;
  45.   WHILE hw.gamePort0 IN hw.ciaa.pra DO g.WaitTOF END;
  46. END BrushToOberonDemo.
  47.